home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / binutils.7 / binutils / binutils-2.7 / bfd / evax-egsd.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-04  |  15.5 KB  |  584 lines
  1. /* evax-egsd.c -- BFD back-end for ALPHA EVAX (openVMS/AXP) files.
  2.    Copyright 1996 Free Software Foundation Inc.
  3.  
  4.    go and read the openVMS linker manual (esp. appendix B)
  5.    if you don't know what's going on here :-)
  6.  
  7.    Written by Klaus KΣmpf (kkaempf@progis.de)
  8.    of proGIS Softwareentwicklung, Aachen, Germany
  9.  
  10. This program is free software; you can redistribute it and/or modify
  11. it under the terms of the GNU General Public License as published by
  12. the Free Software Foundation; either version 2 of the License, or
  13. (at your option) any later version.
  14.  
  15. This program is distributed in the hope that it will be useful,
  16. but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. GNU General Public License for more details.
  19.  
  20. You should have received a copy of the GNU General Public License
  21. along with this program; if not, write to the Free Software
  22. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  23.  
  24.  
  25. #include <stdio.h>
  26. #include <ctype.h>
  27.  
  28. #include "bfd.h"
  29. #include "sysdep.h"
  30. #include "bfdlink.h"
  31. #include "libbfd.h"
  32.  
  33. #include "evax.h"
  34.  
  35. /*-----------------------------------------------------------------------------*/
  36.  
  37. /* sections every evax object file has  */
  38.  
  39. #define EVAX_ABS_NAME        "$ABS$"
  40. #define EVAX_CODE_NAME        "$CODE$"
  41. #define EVAX_LINK_NAME        "$LINK$"
  42. #define EVAX_DATA_NAME        "$DATA$"
  43. #define EVAX_BSS_NAME        "$BSS$"
  44. #define EVAX_READONLY_NAME    "$READONLY$"
  45. #define EVAX_LITERAL_NAME    "$LITERAL$"
  46.  
  47. struct sec_flags_struct {
  48.   char *name;            /* name of section */
  49.   int eflags_always;
  50.   flagword flags_always;    /* flags we set always */
  51.   int eflags_hassize;
  52.   flagword flags_hassize;    /* flags we set if the section has a size > 0 */
  53. };
  54.  
  55. /* just a dummy flag array since i don't understand it yet  */
  56.  
  57. static struct sec_flags_struct evax_section_flags[] = {
  58.   { EVAX_ABS_NAME,
  59.     (EGPS_S_V_SHR),
  60.     (SEC_DATA),
  61.     (EGPS_S_V_SHR),
  62.     (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
  63.   { EVAX_CODE_NAME,
  64.     (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_EXE),
  65.     (SEC_CODE),
  66.     (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_EXE),
  67.     (SEC_IN_MEMORY|SEC_CODE|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
  68.   { EVAX_LINK_NAME,
  69.     (EGPS_S_V_REL|EGPS_S_V_RD),
  70.     (SEC_DATA|SEC_READONLY),
  71.     (EGPS_S_V_REL|EGPS_S_V_RD),
  72.     (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
  73.   { EVAX_DATA_NAME,
  74.     (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
  75.     (SEC_DATA),
  76.     (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
  77.     (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
  78.   { EVAX_BSS_NAME,
  79.     (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT|EGPS_S_V_NOMOD),
  80.     (SEC_NO_FLAGS),
  81.     (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT|EGPS_S_V_NOMOD),
  82.     (SEC_IN_MEMORY|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
  83.   { EVAX_READONLY_NAME,
  84.     (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD),
  85.     (SEC_DATA|SEC_READONLY),
  86.     (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD),
  87.     (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
  88.   { EVAX_LITERAL_NAME,
  89.     (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD),
  90.     (SEC_DATA|SEC_READONLY),
  91.     (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD),
  92.     (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
  93.   { NULL,
  94.     (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
  95.     (SEC_DATA),
  96.     (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
  97.     (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) }
  98. };
  99.  
  100. /* Retrieve bfd section flags by name and size  */
  101.  
  102. static flagword
  103. evax_secflag_by_name(name, size)
  104.      char *name;
  105.      int size;
  106. {
  107.   int i = 0;
  108.  
  109.   while (evax_section_flags[i].name != NULL)
  110.     {
  111.       if (strcmp (name, evax_section_flags[i].name) == 0)
  112.     {
  113.       if (size > 0)
  114.         return evax_section_flags[i].flags_hassize;
  115.       else
  116.         return evax_section_flags[i].flags_always;
  117.     }
  118.       i++;
  119.     }
  120.   if (size > 0)
  121.     return evax_section_flags[i].flags_hassize;
  122.   return evax_section_flags[i].flags_always;
  123. }
  124.  
  125.  
  126. /* Retrieve evax section flags by name and size  */
  127.  
  128. static flagword
  129. evax_esecflag_by_name(name, size)
  130.      char *name;
  131.      int size;
  132. {
  133.   int i = 0;
  134.  
  135.   while (evax_section_flags[i].name != NULL)
  136.     {
  137.       if (strcmp (name, evax_section_flags[i].name) == 0)
  138.     {
  139.       if (size > 0)
  140.         return evax_section_flags[i].eflags_hassize;
  141.       else
  142.         return evax_section_flags[i].eflags_always;
  143.     }
  144.       i++;
  145.     }
  146.   if (size > 0)
  147.     return evax_section_flags[i].eflags_hassize;
  148.   return evax_section_flags[i].eflags_always;
  149. }
  150.  
  151. /*-----------------------------------------------------------------------------*/
  152. #if EVAX_DEBUG
  153. /* debug */
  154.  
  155. struct flagdescstruct { char *name; flagword value; };
  156.  
  157. /* Convert flag to printable string  */
  158.  
  159. static char *
  160. flag2str(flagdesc, flags)
  161.      struct flagdescstruct *flagdesc;
  162.      flagword flags;
  163. {
  164.  
  165.   static char res[64];
  166.   int next = 0;
  167.  
  168.   res[0] = 0;
  169.   while (flagdesc->name != NULL)
  170.     {
  171.       if ((flags & flagdesc->value) != 0)
  172.     {
  173.       if (next)
  174.         strcat(res, ",");
  175.       else
  176.         next = 1;
  177.       strcat (res, flagdesc->name);
  178.     }
  179.       flagdesc++;
  180.     }
  181.   return res;
  182. }
  183. #endif
  184.  
  185. /*-----------------------------------------------------------------------------*/
  186. /* input routines */
  187.  
  188. /* Process EGSD record
  189.    return 0 on success, -1 on error  */
  190.  
  191. int
  192. _bfd_evax_slurp_egsd (abfd)
  193.      bfd *abfd;
  194. {
  195. #if EVAX_DEBUG
  196.   static struct flagdescstruct gpsflagdesc[] =
  197.   {
  198.     { "PIC", 0x0001 },
  199.     { "LIB", 0x0002 },
  200.     { "OVR", 0x0004 },
  201.     { "REL", 0x0008 },
  202.     { "GBL", 0x0010 },
  203.     { "SHR", 0x0020 },
  204.     { "EXE", 0x0040 },
  205.     { "RD",  0x0080 },
  206.     { "WRT", 0x0100 },
  207.     { "VEC", 0x0200 },
  208.     { "NOMOD", 0x0400 },
  209.     { "COM", 0x0800 },
  210.     { NULL, 0 }
  211.   };
  212.  
  213.   static struct flagdescstruct gsyflagdesc[] =
  214.   {
  215.     { "WEAK", 0x0001 },
  216.     { "DEF",  0x0002 },
  217.     { "UNI",  0x0004 },
  218.     { "REL",  0x0008 },
  219.     { "COMM", 0x0010 },
  220.     { "VECEP", 0x0020 },
  221.     { "NORM", 0x0040 },
  222.     { NULL, 0 }
  223.   };
  224. #endif
  225.  
  226.   int gsd_type, gsd_size;
  227.   asection *section;
  228.   unsigned char *evax_rec;
  229.   flagword new_flags, old_flags;
  230.   char *name;
  231.   asymbol *symbol;
  232.   evax_symbol_entry *entry;
  233.   unsigned long base_addr;
  234.   unsigned long align_addr;
  235.  
  236. #if EVAX_DEBUG
  237.   evax_debug (2, "EGSD\n");
  238. #endif
  239.  
  240.   PRIV(evax_rec) += 8;    /* skip type, size, l_temp */
  241.   PRIV(rec_size) -= 8;
  242.  
  243.   /* calculate base address for each section  */
  244.   base_addr = 0L;
  245.  
  246.   abfd->symcount = 0;
  247.  
  248.   while (PRIV(rec_size) > 0)
  249.     {
  250.       evax_rec = PRIV(evax_rec);
  251.       _bfd_evax_get_header_values (abfd, evax_rec, &gsd_type, &gsd_size);
  252.       switch (gsd_type)
  253.     {
  254.     case EGSD_S_C_PSC:
  255.       {
  256.         /* program section definition  */
  257.  
  258.         name = _bfd_evax_save_counted_string ((char *)evax_rec+12);
  259.         section = bfd_make_section (abfd, name);
  260.         if (!section)
  261.           return -1;
  262.         old_flags = bfd_getl16 (evax_rec + 6);
  263.         section->_raw_size = bfd_getl32 (evax_rec + 8);    /* allocation */
  264.         new_flags = evax_secflag_by_name (name, section->_raw_size);
  265.         if (old_flags & EGPS_S_V_REL)
  266.           new_flags |= SEC_RELOC;
  267.         if (!bfd_set_section_flags (abfd, section, new_flags))
  268.           return -1;
  269.         section->alignment_power = evax_rec[4];
  270.         align_addr = (1 << section->alignment_power);
  271.         if ((base_addr % align_addr) != 0)
  272.           base_addr += (align_addr - (base_addr % align_addr));
  273.         section->vma = (bfd_vma)base_addr;
  274.         base_addr += section->_raw_size;    /* FIXME: should be cooked size */
  275.         section->contents = (unsigned char *) malloc (section->_raw_size);
  276.         if (section->contents == NULL)
  277.           {
  278.         bfd_set_error (bfd_error_no_memory);
  279.         return -1;
  280.           }
  281.         memset (section->contents, 0, section->_raw_size);
  282. #if EVAX_DEBUG
  283.         evax_debug(3, "egsd psc %d (%s, flags %04x=%s) ",
  284.                section->index, name, old_flags, flag2str(gpsflagdesc, old_flags));
  285.         evax_debug(3, "%d bytes at 0x%08lx (mem %p)\n",
  286.                section->_raw_size, section->vma, section->contents);
  287. #endif
  288.       }
  289.       break;
  290.  
  291.     case EGSD_S_C_SYM:
  292.       {
  293.         /* symbol specification (definition or reference)  */
  294.  
  295.             symbol = _bfd_evax_make_empty_symbol (abfd);
  296.             if (symbol == 0)
  297.               return -1;
  298.  
  299.         old_flags = bfd_getl16 (evax_rec + 6);
  300.         new_flags = BSF_NO_FLAGS;
  301.  
  302.         if (old_flags & EGSY_S_V_WEAK)
  303.           new_flags |= BSF_WEAK;
  304.  
  305.         if (evax_rec[6] & EGSY_S_V_DEF)    /* symbol definition */
  306.           {
  307.         symbol->name =
  308.           _bfd_evax_save_counted_string ((char *)evax_rec+32);
  309.         if (old_flags & EGSY_S_V_NORM)
  310.           {         /* proc def */
  311.             new_flags |= BSF_FUNCTION;
  312.           }
  313.         symbol->value = bfd_getl64 (evax_rec+8);
  314.         symbol->section = (asection *)((unsigned long) bfd_getl32 (evax_rec+28));
  315. #if EVAX_DEBUG
  316.         evax_debug(3, "egsd sym def #%d (%s, %d, %04x=%s)\n", abfd->symcount,
  317.                symbol->name, (int)symbol->section, old_flags, flag2str(gsyflagdesc, old_flags));
  318. #endif
  319.           }
  320.         else    /* symbol reference */
  321.           {
  322. #if EVAX_DEBUG
  323.         evax_debug(3, "egsd sym ref #%d (%s, %04x=%s)\n", abfd->symcount, evax_rec+9, old_flags, flag2str(gsyflagdesc, old_flags));
  324. #endif
  325.                 symbol->name =
  326.           _bfd_evax_save_counted_string ((char *)evax_rec+8);
  327.                 symbol->section = bfd_make_section (abfd, BFD_UND_SECTION_NAME);
  328.           }
  329.  
  330.         symbol->flags = new_flags;
  331.  
  332.         /* save symbol in evax_symbol_table  */
  333.  
  334.             entry = (evax_symbol_entry *) bfd_hash_lookup (PRIV(evax_symbol_table), symbol->name, true, false);
  335.         if (entry == (evax_symbol_entry *)NULL)
  336.           {
  337.         bfd_set_error (bfd_error_no_memory);
  338.         return -1;
  339.           }
  340.         if (entry->symbol != (asymbol *)NULL)
  341.           {                    /* FIXME ?, DEC C generates this */
  342. #if EVAX_DEBUG
  343.         evax_debug(3, "EGSD_S_C_SYM: duplicate \"%s\"\n", symbol->name);
  344. #endif
  345.           }
  346.         else
  347.           {
  348.         entry->symbol = symbol;
  349.         PRIV(egsd_sym_count)++;
  350.         abfd->symcount++;
  351.           }
  352.       }
  353.       break;
  354.  
  355.     case EGSD_S_C_IDC:
  356.       break;
  357.  
  358.     default:
  359.       (*_bfd_error_handler) ("unknown egsd subtype %d", gsd_type);
  360.       bfd_set_error (bfd_error_bad_value);
  361.       return -1;
  362.  
  363.     } /* switch */
  364.  
  365.       PRIV(rec_size) -= gsd_size;
  366.       PRIV(evax_rec) += gsd_size;
  367.  
  368.     } /* while (recsize > 0) */
  369.  
  370.   if (abfd->symcount > 0)
  371.     abfd->flags |= HAS_SYMS;
  372.  
  373.   return 0;
  374. }
  375.  
  376. /*-----------------------------------------------------------------------------*/
  377. /* output routines */
  378.  
  379. /* Write section and symbol directory of bfd abfd  */
  380.  
  381. int
  382. _bfd_evax_write_egsd (abfd)
  383.      bfd *abfd;
  384. {
  385.   asection *section;
  386.   asymbol *symbol;
  387.   int symnum;
  388.   int last_index = -1;
  389.   char dummy_name[10];
  390.   char *sname;
  391.   flagword new_flags, old_flags;
  392.   char uname[200];
  393.   char *nptr, *uptr;
  394.  
  395. #if EVAX_DEBUG
  396.   evax_debug (2, "evax_write_egsd(%p)\n", abfd);
  397. #endif
  398.  
  399.   /* output sections  */
  400.  
  401.   section = abfd->sections;
  402. #if EVAX_DEBUG
  403.   evax_debug (3, "%d sections found\n", abfd->section_count);
  404. #endif
  405.  
  406.   /* egsd is quadword aligned  */
  407.  
  408.   _bfd_evax_output_alignment (abfd, 8);
  409.  
  410.   _bfd_evax_output_begin (abfd, EOBJ_S_C_EGSD, -1);
  411.   _bfd_evax_output_long (abfd, 0);
  412.   _bfd_evax_output_push (abfd);        /* prepare output for subrecords */
  413.  
  414.   while (section != 0)
  415.     {
  416. #if EVAX_DEBUG
  417.   evax_debug (3, "Section #%d %s, %d bytes\n", section->index, section->name, (int)section->_raw_size);
  418. #endif
  419.  
  420.     /* 13 bytes egsd, max 31 chars name -> should be 44 bytes */
  421.       if (_bfd_evax_output_check (abfd, 64) < 0)
  422.     {
  423.       _bfd_evax_output_pop (abfd);
  424.       _bfd_evax_output_end (abfd);
  425.       _bfd_evax_output_begin (abfd, EOBJ_S_C_EGSD, -1);
  426.       _bfd_evax_output_long (abfd, 0);
  427.       _bfd_evax_output_push (abfd);        /* prepare output for subrecords */
  428.     }
  429.  
  430.     /* Create dummy sections to keep consecutive indices */
  431.  
  432.       while (section->index - last_index > 1)
  433.     {
  434. #if EVAX_DEBUG
  435.       evax_debug (3, "index %d, last %d\n", section->index, last_index);
  436. #endif
  437.       _bfd_evax_output_begin (abfd, EGSD_S_C_PSC, -1);
  438.       _bfd_evax_output_short (abfd, 0);
  439.       _bfd_evax_output_short (abfd, 0);
  440.       _bfd_evax_output_long (abfd, 0);
  441.       sprintf (dummy_name, ".DUMMY%02d", last_index);
  442.       _bfd_evax_output_counted (abfd, dummy_name);
  443.       _bfd_evax_output_flush (abfd);
  444.       last_index++;
  445.     }
  446.  
  447.       /* Don't know if this is neccesary for the linker but for now it keeps
  448.      evax_slurp_egsd happy  */
  449.  
  450.       sname = (char *)section->name;
  451.       if (*sname == '.')
  452.     {
  453.       sname++;
  454.       if ((*sname == 't') && (strcmp (sname, "text") == 0))
  455.         sname = EVAX_CODE_NAME;
  456.       else if ((*sname == 'd') && (strcmp (sname, "data") == 0))
  457.         sname = EVAX_DATA_NAME;
  458.       else if ((*sname == 'b') && (strcmp (sname, "bss") == 0))
  459.         sname = EVAX_BSS_NAME;
  460.       else if ((*sname == 'l') && (strcmp (sname, "link") == 0))
  461.         sname = EVAX_LINK_NAME;
  462.       else if ((*sname == 'r') && (strcmp (sname, "rdata") == 0))
  463.         sname = EVAX_READONLY_NAME;
  464.       else if ((*sname == 'l') && (strcmp (sname, "literal") == 0))
  465.         sname = EVAX_LITERAL_NAME;
  466.     }
  467.  
  468.       _bfd_evax_output_begin (abfd, EGSD_S_C_PSC, -1);
  469.       _bfd_evax_output_short (abfd, section->alignment_power & 0xff);
  470.       _bfd_evax_output_short (abfd,
  471.                   evax_esecflag_by_name (sname,
  472.                              section->_raw_size));
  473.       _bfd_evax_output_long (abfd, section->_raw_size);
  474.       _bfd_evax_output_counted (abfd, sname);
  475.       _bfd_evax_output_flush (abfd);
  476.  
  477.       last_index = section->index;
  478.       section = section->next;
  479.     }
  480.  
  481.   /* output symbols  */
  482.  
  483. #if EVAX_DEBUG
  484.   evax_debug (3, "%d symbols found\n", abfd->symcount);
  485. #endif
  486.  
  487.   bfd_set_start_address (abfd, (bfd_vma)-1);
  488.  
  489.   for (symnum = 0; symnum < abfd->symcount; symnum++)
  490.     {
  491.  
  492.       symbol = abfd->outsymbols[symnum];
  493.       if (*(symbol->name) == '_')
  494.     {
  495.       if (strcmp (symbol->name, "__main") == 0)
  496.         bfd_set_start_address (abfd, (bfd_vma)symbol->value);
  497.     }
  498.       old_flags = symbol->flags;
  499.  
  500.       if (((old_flags & BSF_GLOBAL) == 0)        /* not xdef */
  501.       && (!bfd_is_und_section (symbol->section)))    /* and not xref */
  502.     continue;                    /* dont output */
  503.  
  504.       /* 13 bytes egsd, max 64 chars name -> should be 77 bytes  */
  505.  
  506.       if (_bfd_evax_output_check (abfd, 80) < 0)
  507.     {
  508.       _bfd_evax_output_pop (abfd);
  509.       _bfd_evax_output_end (abfd);
  510.       _bfd_evax_output_begin (abfd, EOBJ_S_C_EGSD, -1);
  511.       _bfd_evax_output_long (abfd, 0);
  512.       _bfd_evax_output_push (abfd);        /* prepare output for subrecords */
  513.     }
  514.  
  515.       _bfd_evax_output_begin (abfd, EGSD_S_C_SYM, -1);
  516.  
  517.       _bfd_evax_output_short (abfd, 0);            /* data type, alignment */
  518.  
  519.       new_flags = 0;
  520.       if (old_flags & BSF_WEAK)
  521.     new_flags |= EGSY_S_V_WEAK;
  522.       if (old_flags & BSF_FUNCTION)
  523.     {
  524.       new_flags |= EGSY_S_V_NORM;
  525.       new_flags |= EGSY_S_V_REL;
  526.     }
  527.       if (old_flags & BSF_GLOBAL)
  528.     {
  529.       new_flags |= EGSY_S_V_DEF;
  530.       if (!bfd_is_abs_section (symbol->section))
  531.         new_flags |= EGSY_S_V_REL;
  532.     }
  533.       _bfd_evax_output_short (abfd, new_flags);
  534.  
  535.       if (old_flags & BSF_GLOBAL)            /* symbol definition */
  536.     {
  537.       if (old_flags & BSF_FUNCTION)
  538.         {
  539.           _bfd_evax_output_quad (abfd, symbol->value);
  540.           _bfd_evax_output_quad (abfd,
  541.                      ((asymbol *)(symbol->udata.p))->value);
  542.           _bfd_evax_output_long (abfd,
  543.                      (((asymbol *)(symbol->udata.p))
  544.                       ->section->index));
  545.           _bfd_evax_output_long (abfd, symbol->section->index);
  546.         }
  547.       else
  548.         {
  549.           _bfd_evax_output_quad (abfd, symbol->value);    /* L_VALUE */
  550.           _bfd_evax_output_quad (abfd, 0);            /* L_CODE_ADDRESS */
  551.           _bfd_evax_output_long (abfd, 0);            /* L_CA_PSINDX */
  552.           _bfd_evax_output_long (abfd, symbol->section->index);/* L_PSINDX, FIXME */
  553.         }
  554.     }
  555.       if (strlen ((char *)symbol->name) > 198)
  556.     {
  557.       (*_bfd_error_handler) ("Name '%s' too long\n", symbol->name);
  558.       abort ();
  559.     }
  560.       nptr = (char *)symbol->name;
  561.       uptr = uname;
  562.       while (*nptr)
  563.     {
  564.       if (islower (*nptr))
  565.         *uptr = toupper (*nptr);
  566.       else
  567.         *uptr = *nptr;
  568.       uptr++;
  569.       nptr++;
  570.     }
  571.       *uptr = 0;
  572.       _bfd_evax_output_counted (abfd, uname);
  573.  
  574.       _bfd_evax_output_flush (abfd);
  575.  
  576.     }
  577.  
  578.   _bfd_evax_output_alignment (abfd, 8);
  579.   _bfd_evax_output_pop (abfd);
  580.   _bfd_evax_output_end (abfd); 
  581.  
  582.   return 0;
  583. }
  584.